home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / language / hebrew.el.z / hebrew.el
Encoding:
Text File  |  1998-05-21  |  2.6 KB  |  94 lines
  1. ;;; hebrew.el --- Support for Hebrew
  2.  
  3. ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
  4. ;; Licensed to the Free Software Foundation.
  5.  
  6. ;; Keywords: multilingual, Hebrew
  7.  
  8. ;; This file is part of GNU Emacs.
  9.  
  10. ;; GNU Emacs is free software; you can redistribute it and/or modify
  11. ;; it under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; GNU Emacs is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;; GNU General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23. ;; Boston, MA 02111-1307, USA.
  24.  
  25. ;;; Commentary:
  26.  
  27. ;; For Hebrew, the character sets ISO8859-8 is supported.
  28.  
  29. ;;; Code:
  30.  
  31. ;; Syntax of Hebrew characters
  32. (loop for c from 96 to 122
  33.       do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w"))
  34. (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
  35.  
  36.  
  37. ;; (make-coding-system
  38. ;;  'hebrew-iso-8bit 2 ?8
  39. ;;  "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
  40. ;;  '((ascii t) (hebrew-iso8859-8 t) nil nil
  41. ;;    nil ascii-eol ascii-cntl nil nil nil nil nil t))
  42.  
  43. ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
  44.  
  45. (make-coding-system
  46.  'iso-8859-8 'iso2022
  47.  "MIME ISO-8859-8"
  48.  '(charset-g0 ascii
  49.    charset-g1 hebrew-iso8859-8
  50.    charset-g2 t
  51.    charset-g3 t
  52.    no-iso6429 t
  53.    mnemonic "MIME/Hbrw"
  54. ))
  55.  
  56. (make-coding-system
  57.  'ctext-hebrew 'iso2022
  58.  "Coding-system of Hebrew."
  59.  '(charset-g0 ascii
  60.    charset-g1 hebrew-iso8859-8
  61.    charset-g2 t
  62.    charset-g3 t
  63.    mnemonic "CText/Hbrw"
  64.    ))
  65.  
  66. (defun setup-hebrew-environment ()
  67.   "Setup multilingual environment (MULE) for Hebrew.
  68. But, please note that right-to-left writing is not yet supported."
  69.   (interactive)
  70.   (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 'iso-8859-8
  71.                "hebrew")
  72.   (set-coding-category-system 'iso-8-designate 'iso-8859-8)
  73.   (set-coding-priority-list
  74.    '(iso-8-designate
  75.      iso-8-1
  76.      iso-7
  77.      iso-8-2
  78.      iso-lock-shift
  79.      no-conversion
  80.      shift-jis
  81.      big5))
  82.   )
  83.  
  84. (set-language-info-alist
  85.  "Hebrew" '((setup-function . setup-hebrew-environment)
  86.         (describe-function . describe-hebrew-support)
  87.         (charset . (hebrew-iso8859-8))
  88.         (coding-system . (iso-8859-8))
  89.         (sample-text . "Hebrew    ,Hylem(B")
  90.         (documentation . "Right-to-left writing is not yet supported.")
  91.         ))
  92.  
  93. ;;; hebrew.el ends here
  94.